home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / m_emacs / dif311a / input.dif < prev    next >
Encoding:
Text File  |  1991-11-22  |  3.8 KB  |  149 lines
  1. 299,327d298
  2. <             goto clist;
  3. < 
  4. <         } else if (c == '?') {    
  5. < 
  6. < clist:            /* make a completion list! */
  7. <             switch (type) {
  8. <                 case CMP_BUFFER:
  9. <                     clist_buffer(buf, &cpos);
  10. <                     break;
  11. <                 case CMP_COMMAND:
  12. <                     clist_command(buf, &cpos);
  13. <                     break;
  14. <                 case CMP_FILENAME:
  15. <                     clist_file(buf, &cpos);
  16. <                     break;
  17. <             }
  18. <             update(TRUE);
  19. < 
  20. <             /* if it exists, reprompt the user */
  21. <             if (prompt) {
  22. <                 buf[cpos] = 0;
  23. <                 if (type == CMP_COMMAND)
  24. <                     mlwrite("%s%s", prompt, buf);
  25. <                 else if (defval)
  26. <                     mlwrite("%s[%s]: %s", prompt, defval, buf);
  27. <                 else
  28. <                     mlwrite("%s: %s", prompt, buf);
  29. <             }
  30. < 
  31. 415,450d385
  32. < /*    clist_command:    Make a completion list based on a partial name */
  33. < 
  34. < clist_command(name, cpos)
  35. < 
  36. < char *name;    /* command containing the current name to complete */
  37. < int *cpos;    /* ptr to position of next character to insert */
  38. < 
  39. < {
  40. <     register NBIND *bp;    /* trial command to complete */
  41. <     register int curbind;    /* index into the names[] array */
  42. <     register int name_len;    /* current length of input string */
  43. <     register BUFFER *listbuf;/* buffer to put completion list into */
  44. < 
  45. <     /* get a buffer for the completion list */
  46. <     listbuf = bfind("[Completion list]", TRUE, BFINVS);
  47. <     if (listbuf == NULL || bclear(listbuf) == FALSE) {
  48. <         ctrlg(FALSE, 0);
  49. <         TTflush();
  50. <         return;
  51. <     }
  52. < 
  53. <     name_len = *cpos;
  54. < 
  55. <     /* first, we start at the first command and scan the list */
  56. <     for (curbind = 0; curbind <= numfunc; curbind++) {
  57. < 
  58. <         /* is this a match? */
  59. <         bp = &names[curbind];
  60. <         if (strncmp(name, bp->n_name, name_len) == 0)
  61. <             addline(listbuf, bp->n_name);
  62. <     }
  63. < 
  64. <     wpopup(listbuf);
  65. <     return;
  66. < }
  67. < 
  68. 524,561d458
  69. < /*    clist_buffer:    Make a completion list based on a partial buffer name */
  70. < 
  71. < clist_buffer(name, cpos)
  72. < 
  73. < char *name;    /* command containing the current name to complete */
  74. < int *cpos;    /* ptr to position of next character to insert */
  75. < 
  76. < {
  77. <     register int name_len;    /* current length of input string */
  78. <     register BUFFER *listbuf;/* buffer to put completion list into */
  79. <     register BUFFER *bp;    /* trial buffer to complete */
  80. < 
  81. <     /* get a buffer for the completion list */
  82. <     listbuf = bfind("[Completion list]", TRUE, BFINVS);
  83. <     if (listbuf == NULL || bclear(listbuf) == FALSE) {
  84. <         ctrlg(FALSE, 0);
  85. <         TTflush();
  86. <         return;
  87. <     }
  88. < 
  89. <     /* first, we start at the first buffer and scan the list */
  90. <     name_len = *cpos;
  91. <     bp = bheadp;
  92. < 
  93. <     while (bp) {
  94. < 
  95. <         /* is this a match? */
  96. <         if (strncmp(name, bp->b_bname, name_len) == 0)
  97. <             addline(listbuf, bp->b_bname);
  98. < 
  99. <         /* on to the next buffer */
  100. <         bp = bp->b_bufp;
  101. <     }
  102. < 
  103. <     wpopup(listbuf);
  104. <     return;
  105. < }
  106. < 
  107. 637,677d533
  108. < 
  109. <     return;
  110. < }
  111. < 
  112. < /*    clist_file:    Make a completion list based on a partial file name */
  113. < 
  114. < clist_file(name, cpos)
  115. < 
  116. < char *name;    /* command containing the current name to complete */
  117. < int *cpos;    /* ptr to position of next character to insert */
  118. < 
  119. < {
  120. <     register int name_len;    /* current length of input string */
  121. <     register BUFFER *listbuf;/* buffer to put completion list into */
  122. <     register char *fname;    /* trial file to complete */
  123. < 
  124. <     /* get a buffer for the completion list */
  125. <     listbuf = bfind("[Completion list]", TRUE, BFINVS);
  126. <     if (listbuf == NULL || bclear(listbuf) == FALSE) {
  127. <         ctrlg(FALSE, 0);
  128. <         TTflush();
  129. <         return;
  130. <     }
  131. < 
  132. <     /* first, we start at the first file and scan the list */
  133. <     name_len = *cpos;
  134. <     name[*cpos] = 0;
  135. <     fname = getffile(name);
  136. < 
  137. <     /* first, we start at the first file and scan the list */
  138. <     while (fname) {
  139. < 
  140. <         /* is this a match? */
  141. <         if (strncmp(name, fname, name_len) == 0)
  142. <             addline(listbuf, fname);
  143. < 
  144. <         /* on to the next file */
  145. <         fname = getnfile();
  146. <     }
  147. < 
  148. <     wpopup(listbuf);
  149.